home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / disk / cluster2.zip / SOURCE.ZIP / PB3BOXES.INC < prev    next >
Text File  |  1996-07-06  |  4KB  |  90 lines
  1. DEFINT a-z
  2. '+-----------------------------------------------------------------+
  3. '| This component of PB3BOXES is Copyright Nathan C. Durland III   |
  4. '| All rights reserved                                             |
  5. '+-----------------------------------------------------------------+
  6.  
  7. %MaxBorders = 4
  8. %PgDn       = 255 + 81  :  %PgUp       = 255 + 73
  9. %HomeKey    = 255 + 71  :  %EndKey     = 255 + 79
  10. %UpArrow    = 255 + 72  :  %DownArrow  = 255 + 80
  11. %LeftArrow  = 255 + 75  :  %RightArrow = 255 + 77
  12. %InsKey         = 255 + 82  :  %DelKey          = 255 + 83
  13. %HelpKey         = 255 + 35  :  %CtrlIns      = 255 + 146
  14. %CtrlDel         = 225 + 147
  15. %Enter      = 13        :  %Cr = 27
  16. %Space      = 32        :  %Esc = 27
  17.  
  18. %F1 = 255 + 59
  19.  
  20.  
  21. %Black   = 0 : %Grey    = 8
  22. %Blue    = 1 : %BrightBlue  = 9
  23. %Green   = 2 : %BrightGreen = 10
  24. %Cyan    = 3 : %BrightCyan  = 11
  25. %Red     = 4 : %BrightRed   = 12
  26. %Magenta = 5 : %BrightMagenta = 13
  27. %Brown   = 6 : %Yellow        = 14
  28. %White   = 7 : %BrightWhite = 15
  29.  
  30. '  Routines in PB3Boxes.PBU
  31. '
  32. '-----------------------------------------------------------------
  33. '  These subs are my additions to the tool box
  34. '-----------------------------------------------------------------
  35. '
  36.  
  37. DECLARE SUB BoxInit(BYVAL INTEGER)
  38. DECLARE SUB MakeBox(BYVAL INTEGER, BYVAL INTEGER, _
  39.                     BYVAL INTEGER, BYVAL INTEGER, _
  40.                     BYVAL INTEGER, BYVAL INTEGER)
  41. DECLARE SUB RemoveBox()
  42. DECLARE SUB ClearBox(BYVAL INTEGER, BYVAL INTEGER)
  43. DECLARE SUB PrtBox(BYVAL INTEGER, BYVAL INTEGER, BYVAL STRING, BYVAL INTEGER)
  44. DECLARE SUB PrtEOL(BYVAL INTEGER, BYVAL INTEGER, BYVAL STRING, BYVAL INTEGER)
  45. DECLARE SUB NukeBoxes(BYVAL INTEGER)
  46. DECLARE SUB SetBoxColor(BYVAL INTEGER, BYVAL INTEGER)
  47. DECLARE SUB BoxTitle(BYVAL INTEGER, BYVAL STRING, BYVAL INTEGER)
  48. DECLARE SUB ScrollBox(BYVAL INTEGER, BYVAL INTEGER)
  49. DECLARE SUB SetViewText(BYVAL INTEGER, BYVAL INTEGER)
  50. DECLARE SUB ReturnAttr(BYVAL INTEGER, INTEGER, INTEGER)
  51. DECLARE SUB VerticalMenu(STRING ARRAY, INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
  52.                      BYVAL INTEGER, BYVAL INTEGER, BYVAL DWORD)
  53. DECLARE SUB TagMenu(STRING ARRAY, STRING, BYVAL INTEGER, _
  54.                     BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, BYVAL DWORD)
  55. DECLARE SUB ScrollList(BYVAL INTEGER, STRING ARRAY, BYVAL INTEGER)
  56. DECLARE FUNCTION MakeAttr%(INTEGER, INTEGER)
  57. DECLARE FUNCTION Msgbox$(BYVAL STRING, BYVAL STRING, BYVAL INTEGER)
  58. '
  59. '-----------------------------------------------------------------
  60. '  These subs are the original routines from SCRNUNIT.BAS
  61. '-----------------------------------------------------------------
  62. '
  63. DECLARE SUB QSAVE(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
  64.                   BYVAL INTEGER, STRING)
  65. DECLARE SUB QREST(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
  66.                   BYVAL INTEGER, STRING)
  67. DECLARE SUB QBOX(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
  68.                  BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER)
  69. DECLARE SUB QFILL(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
  70.                  BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER)
  71. DECLARE SUB QATTR(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
  72.                   BYVAL INTEGER, BYVAL INTEGER)
  73. DECLARE SUB QPRINT(BYVAL INTEGER, BYVAL INTEGER, BYVAL STRING, BYVAL INTEGER)
  74. DECLARE SUB QPRINTC(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, BYVAL STRING, BYVAL INTEGER)
  75. DECLARE SUB SetBlink(BYVAL INTEGER)
  76. DECLARE SUB PgCopy(BYVAL INTEGER, BYVAL INTEGER)
  77. DECLARE SUB ScrollUp(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
  78.                      BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER)
  79. DECLARE SUB ScrollDown(BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
  80.                      BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER)
  81. DECLARE SUB LineEdit(BYVAL INTEGER, BYVAL INTEGER, STRING, _
  82.                      BYVAL INTEGER, BYVAL STRING, BYVAL STRING, _
  83.                      INTEGER, BYVAL INTEGER, BYVAL INTEGER)
  84. DECLARE SUB LineInput(STRING, BYVAL INTEGER)
  85.  
  86.  
  87. PUBLIC CurrentBox%, BoxParms%(), BorderText$(), SaveText$(), MaxBoxes%
  88. PUBLIC  EntryUpperOnly%, EntryNoQuotes%
  89.  
  90.